home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1997 / MacHack 1997.toast / Hacks / Hacks ’96 / Internet Chooser / APIs / ICKeys.p < prev    next >
Encoding:
Text File  |  1995-09-25  |  6.7 KB  |  178 lines  |  [TEXT/CWIE]
  1. unit ICKeys;
  2.  
  3. interface
  4.  
  5.     uses
  6. {$ifc undefined THINK_Pascal}
  7.         Types, Files, QuickDraw,
  8. {$endc}
  9.         AppleTalk, Aliases;
  10.  
  11.     const
  12. (* •••Start ICKeys.p••• *)
  13.  
  14.     kICRealName = 'RealName';  (* PString *)
  15.     kICEmail = 'Email';  (* PString -- user@host.domain *)
  16.     kICMailAccount = 'MailAccount';  (* PString -- user@host.domain *)
  17.     kICMailPassword = 'MailPassword';  (* PString -- scrambled *)
  18.     kICNewsAuthUsername = 'NewsAuthUsername';  (* PString *)
  19.     kICNewsAuthPassword = 'NewsAuthPassword';  (* PString -- scrambled *)
  20.     kICArchiePreferred = 'ArchiePreferred';  (* PString -- formatted *)
  21.     kICArchieAll = 'ArchieAll';  (* STR# -- formatted *)
  22.     kICUMichPreferred = 'UMichPreferred';  (* PString -- formatted *)
  23.     kICUMichAll = 'UMichAll';  (* STR# -- formatted *)
  24.     kICInfoMacPreferred = 'InfoMacPreferred';  (* PString -- formatted *)
  25.     kICInfoMacAll = 'InfoMacAll';  (* STR# -- formatted *)
  26.     kICPhHost = 'PhHost';  (* PString -- host.domain *)
  27.     kICWhoisHost = 'WhoisHost';  (* PString -- host.domain *)
  28.     kICFingerHost = 'FingerHost';  (* PString -- host.domain *)
  29.     kICFTPHost = 'FTPHost';  (* PString -- host.domain *)
  30.     kICTelnetHost = 'TelnetHost';  (* PString -- host.domain *)
  31.     kICSMTPHost = 'SMTPHost';  (* PString -- host.domain *)
  32.     kICNNTPHost = 'NNTPHost';  (* PString -- host.domain *)
  33.     kICGopherHost = 'GopherHost';  (* PString -- host.domain *)
  34.     kICLDAPServer = 'LDAPServer';  (* PString -- host.domain *)
  35.     kICLDAPSearchbase = 'LDAPSearchbase';  (* PString -- string LDAP thing *)
  36.     kICWWWHomePage = 'WWWHomePage';  (* PString -- URL *)
  37.     kICWAISGateway = 'WAISGateway';  (* PString -- no idea *)
  38.     kICListFont = 'ListFont';  (* ICFontRecord *)
  39.     kICScreenFont = 'ScreenFont';  (* ICFontRecord *)
  40.     kICPrinterFont = 'PrinterFont';  (* ICFontRecord *)
  41.     kICTextCreator = 'TextCreator';  (* ICAppSpec *)
  42.     kICBinaryTypeCreator = 'BinaryTypeCreator';  (* ICFileInfo *)
  43.     kICDownloadFolder = 'DownloadFolder';  (* ICFileSpec *)
  44.     kICSignature = 'Signature';  (* TEXT *)
  45.     kICOrganization = 'Organization';  (* PString *)
  46.     kICPlan = 'Plan';  (* TEXT *)
  47.     kICQuotingString = 'QuotingString';  (* PString *)
  48.     kICMailHeaders = 'MailHeaders';  (* TEXT *)
  49.     kICNewsHeaders = 'NewsHeaders';  (* TEXT *)
  50.     kICMapping = 'Mapping';  (* ICMapEntries *)
  51.     kICCharacterSet = 'CharacterSet';  (* ICCharTable *)
  52.     kICHelper = 'Helper•';  (* ICAppSpec *)
  53.     kICServices = 'Services';  (* ICServices *)
  54.     kICNewMailFlashIcon = 'NewMailFlashIcon';  (* Boolean *)
  55.     kICNewMailDialog = 'NewMailDialog';  (* Boolean *)
  56.     kICNewMailPlaySound = 'NewMailPlaySound';  (* Boolean *)
  57.     kICNewMailSoundName = 'NewMailSoundName';  (* PString *)
  58.     kICWebBackgroundColour = 'WebBackgroundColour';  (* RGBColor *)
  59.     kICNoProxyDomains = 'NoProxyDomains';  (* STR# -- list of domains *)
  60.     kICUseSocks = 'UseSocks';  (* Boolean *)
  61.     kICSocksHost = 'SocksHost';  (* PString -- host.domain *)
  62.     kICUseHTTPProxy = 'UseHTTPProxy';  (* Boolean *)
  63.     kICHTTPProxyHost = 'HTTPProxyHost';  (* PString -- host.domain *)
  64.     kICUseFTPProxy = 'UseFTPProxy';  (* Boolean *)
  65.     kICFTPProxyHost = 'FTPProxyHost';  (* PString -- host.domain *)
  66.     kICFTPProxyUser = 'FTPProxyUser';  (* PString *)
  67.     kICFTPProxyPassword = 'FTPProxyPassword';  (* PString -- scrambled *)
  68.     kICFTPProxyAccount = 'FTPProxyAccount';  (* PString *)
  69.  
  70. (* •••End ICKeys.p••• *)
  71.  
  72.     type
  73.         ICFontRecord = record
  74.                 size: integer;
  75.                 face: Style;
  76.                 font: Str255;
  77.             end;
  78.         ICFontRecordPtr = ^ICFontRecord;
  79.         ICFontRecordHandle = ^ICFontRecordPtr;
  80.  
  81.         ICCharTable = record
  82.                 net_to_mac: packed array[char] of char;
  83.                 mac_to_net: packed array[char] of char;
  84.             end;
  85.         ICCharTablePtr = ^ICCharTable;
  86.         ICCharTableHandle = ^ICCharTablePtr;
  87.  
  88.         ICAppSpec = record
  89.                 fCreator: OSType;
  90.                 name: Str63;
  91.             end;
  92.         ICAppSpecPtr = ^ICAppSpec;
  93.         ICAppSpecHandle = ^ICAppSpecPtr;
  94.  
  95.         ICFileInfo = record
  96.                 fType: OSType;
  97.                 fCreator: OSType;
  98.                 name: Str63;
  99.             end;
  100.         ICFileInfoPtr = ^ICFileInfo;
  101.         ICFileInfoHandle = ^ICFileInfoPtr;
  102.  
  103.         ICFileSpec = record
  104.                 vol_name: Str31;
  105.                 vol_creation_date: longint;
  106.                 fss: FSSpec;                    (* vRefNum field is of no value *)
  107.                 alias: AliasRecord;     (* plus extra data, aliasSize 0 means no alias manager present when ICFileSpecification was created *)
  108.             end;
  109.         ICFileSpecPtr = ^ICFileSpec;
  110.         ICFileSpecHandle = ^ICFileSpecPtr;
  111.     const
  112.         ICfile_spec_header_size = sizeof(ICFileSpec) - sizeof(AliasRecord);
  113.  
  114.     type
  115.         ICMapEntry = record
  116.                 total_length: integer;            (* from beginning of record *)
  117.                 fixed_length: integer;            (* from beginning of record *)
  118.                 version: integer;
  119.                 file_type: OSType;
  120.                 file_creator: OSType;
  121.                 post_creator : OSType;
  122.                 flags: longint;
  123.                 (* variable part starts here *)
  124.                 extension: Str255;                    (* these strings are tightly packed *)
  125.                 creator_app_name: Str255;        (* which means, these ones might have an *)
  126.                 post_app_name : Str255;            (* odd address *)
  127.                 MIME_type: Str255;                    
  128.                 entry_name: Str255;
  129.             end;
  130.         ICMapEntryPtr = ^ICMapEntry;
  131.         ICMapEntryHandle = ^ICMapEntryPtr;
  132.  
  133.     const
  134.         (* bits and masks for the flags of the ICMapEntry *)
  135.         ICmap_binary_bit = 0;                    (* file should be transfered in binary as opposed to text mode *)
  136.         ICmap_binary_mask = $00000001;
  137.         ICmap_resource_fork_bit = 1;        (* the resource fork of the file is significant *)
  138.         ICmap_resource_fork_mask = $00000002;
  139.         ICmap_data_fork_bit = 2;                (* the data fork of the file is significant *)
  140.         ICmap_data_fork_mask = $00000004;
  141.  
  142.         ICmap_post_bit = 3;                            (* post process using post fields *)
  143.         ICmap_post_mask = $00000008;
  144.  
  145.         ICmap_not_incoming_bit = 4;            (* ignore this mapping for incoming files *)
  146.         ICmap_not_incoming_mask = $00000010;
  147.         ICmap_not_outgoing_bit = 5;            (* ignore this mapping for outgoing files *)
  148.         ICmap_not_outgoing_mask = $00000020;
  149.  
  150.         ICmap_fixed_length = 22;                (* number in fixed_length field *)
  151.         
  152.     type
  153.         ICServiceEntry = record
  154.                 name: Str255;                        (* this strings is tightly packed *)
  155.                 port: integer;                        (* which means, these fields might have an *)
  156.                 flags: integer;                        (* odd address *)
  157.             end;
  158.         ICServiceEntryPtr = ^ICServiceEntry;
  159.         ICServiceEntryHandle = ICServiceEntryPtr;
  160.  
  161.         ICServices = record
  162.                 count: integer;
  163.                 services: array[1..1] of ICServiceEntry;        (* this array is packed, so you can't index it directly *)
  164.             end;
  165.         ICServicesPtr = ^ICServices;
  166.         ICServicesHandle = ^ICServicesPtr;
  167.  
  168.     const
  169.         (* bits and masks for the flags of the ICServiceEntry *)
  170.         ICservices_tcp_bit = 0;                (* this is a TCP service *)
  171.         ICservices_tcp_mask = $00000001;
  172.         ICservices_udp_bit = 1;                (* this is a UDP service *)
  173.         ICservices_udp_mask = $00000002;
  174.         (* both bits can be set, which means the service is both TCP and UDP, eg daytime *)
  175.  
  176. implementation
  177.  
  178. end. (* ICKeys *)